home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / cmds / scvs / RCS / scvslog,v < prev   
Encoding:
Text File  |  1991-12-12  |  583 b   |  41 lines
  1. head     1.1;
  2. branch   ;
  3. access   ;
  4. symbols  ;
  5. locks    jhh:1.1; strict;
  6. comment  @# @;
  7.  
  8.  
  9. 1.1
  10. date     91.10.09.11.10.59;  author jhh;  state Exp;
  11. branches ;
  12. next     ;
  13.  
  14.  
  15. desc
  16. @@
  17.  
  18.  
  19.  
  20. 1.1
  21. log
  22. @Initial revision
  23. @
  24. text
  25. @#!/sprite/cmds/perl
  26. require 'ctime.pl';
  27.  
  28. $module = shift;
  29. $module =~ m|kernel/(\S+)|;
  30. $module = $1;
  31. print("\n---------------------------------------------------------------\n");
  32. printf("Date    : %s", &ctime(time));
  33. printf("Module    : $module\n");
  34. printf("User    : %s\n", getlogin);
  35. while(<STDIN>) {
  36.     next if (/^Update of/);
  37.     next if (/^In directory/);
  38.     print;
  39. }
  40. @
  41.